1 REM   *************************
2 REM   *  WORLD OF COMMODORE   *
3 REM   *        FLAGS          *
4 REM   * DESIGNED BY DAVE GZIK *
5 REM   *   COMMODORE CANADA    *
6 REM   *       OCT/83          *
7 REM   *************************
8 REM
9 REM   (FLAGS)
10 IFF=0THENF=1:LOAD"SYS 40784.D",8,1
20 IFF=1THENF=2:LOAD"WORLD FLAGS.D",8,1
25 POKE788,52:POKE792,193
30 POKE53265,59
40 POKE53272,25
50 POKE53270,216
55 POKE53280,2
60 SYS 40784
70 GOTO70